home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d13
/
prism127.arc
/
~COLORS.PGE
(
.txt
)
< prev
next >
Wrap
Microsoft Windows Help File Content
|
1990-08-01
|
1KB
|
37 lines
:DefineVars
>.v_exist[LoCo#] .then[return]
>.define[LoCo#] .define[HiCo#] .define[Color#]
>randombase#=127 Color#=11
>.cls Return
:Return
>.window[text center center 3 44 white white single]
>.window[menu bottom center 2 12 white white single]
How would you like to view the colors ??
?Randomly Key=Again ?Sequentially Key=Background
:Randomly
!-> Set color to random number
>Color#=^random#
!-> Adjust hi and lo colors
>LoCo#=^Color#-16 HiCo#=^Color#+96
!-> Make sure colors are in range 0..127 { non blinking }
>LoCo#<0 .then[LoCo#+127] HiCo#>127 .then[HiCo#-127]
>.window[text top left 7 34 ^Color#] .window[menu center left 2 12 white]
this is color# ^LoCo#.
> > This is color# ^Color#. < <
THIS IS COLOR# ^HiCo#.
>.hilite[2 1 34 ^LoCo#] .hilite[6 1 34 ^HiCo#]
?Again Randomly ?Return Key=Sequentially
:Sequentially
!-> make sure colors are still in range 1..255
>Color#>255 .then[Color#-255] Color#<0 .then[Color#+255]
>.window[text top right 7 34 ^Color#] .window[menu center right 5 11 white]
|This is color# ^Color#.
?BackGround Color#<8 .then[Color#*16] .else[Color#+16]
?ForeGround Color#+1
?LastBackGr Color#-16
?PrevForeGr Color#-1
?Return Key=Randomly key=r
>Page<>Return .then[key=^page page=sequentially]